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EDITORIAL INFORMATION 


EDITORIAL 


WELCOME TO ISSUE TWO OF PRINT-OUT. 


We were delighted by the support that 
was offered by many of our readers and the 
kind letters that we received. 


The number of copies sold for Issue 
One was far beyond all our expectations, & 
we hope that Issue Two will see an increase 
in the number of readers. 


We were also very pleased with the 
large number of questionnaires that were 
returned to us. We have tried to include 
as many of your ideas as space permits. 


As a direct result of your question-— 
naires we have included in this issue :- 
A competition to win MAXAM, a tips page, 
many more programs and tutorials, a letters 
page and homebrew software. We have also 
changed our type-style and many other ideas 
are being considered for Issue Three. 


Many of you have asked us to tell you 
the date when the next magazine will be out. 
We were reluctant to do this in case dead- 
lines could not be met. However, we can tell 
you that Issue Three will be available in 
late December or early January. If you wish 
to send us £1+10 we will send you Issue 3 
as soon as it is ready. 


Others have asked if there are other 
ways to pay and the answers are shown here. 


a) SUBSCRIPTIONS - Unless you live outside 
England there are NO subscription rates. 

b) COST - The cost of the magazine is one 
of the following :- 70p + SAE (26p) or 


£1°10 (which is inclusive of P+P). 


We hope that you enjoy Issue Two and 
that you will tell your friends about Print- 
Out. Please feel free to drop us a line to 
do with anything concerning the CPC. We try 
to answer all the letters we receive, but 
please don't expect an immediate answer. 


UNTIL NEXT TIME. HAPPY READING [2! 


COMPETITION -win 


BEGINNER'S BASIC BASIC TUTORIAL 


Basic for BEGINNERS 


At the end of the last issue we had a program which cleared the screen 
and printed a welcome message. This program is listed below. 


1¢ CLS 

2 PRINT “Hello "; 

25 PRINT "Friend" 

3% PRINT 

4g PRINT "I am your Amstrad" 


RENUM ~ By using this command we can renumber all the line numbers so they 
are multiples of ten. 


AUTO - This command should be typed in before you start any programming and 
it will automatically print a line number, which is a multiple of ten, every 
time you press ENTER. 


NEW —- So that we can program a new program, type NEW and it will clear the 
memory of any BASIC programs. 


Our next program will clear the screen and print a message asking for 
a person's name. We already know how to clear the screen and the command 
INPUT is used to ask the user what he or she wishes to do. The program 
below clears the screen and waits for the user's input. 


1¢ CLS 
26 INPUT name$ 


In this program 'name$' is a variable and the $ sign shows that it is 
a string variable as oppose to a numeric variable. A variable is a place 
where bits of information can be stored before they are used again. On the 
Amstrad we can have an almost infinite varietv of variables, in fact, as 
large as the users imagination! The program above clears the screen and 
prints a question mark (?) and waits for the user to enter something that 
is followed by ENTER. It then stores the user's entry in name$. However, 
just printing a question mark and expecting someone to know exactly what to 
do isn't very helpful and so we can also print a piece of text using INPUT. 
Change line 20 to the one shown below. 


2¢ INPUT "What is your name";name$ 


When you RUN the program now the screen will clear and the message, 
‘What is your name?' will appear on the screen and the computer will wait 
for you to enter something. Tf you now add line 34, the computer will ask 
you for your name and then say hello to you. 


36 PRINT "Hello ";name$ 
This shows that you can use variables with PRINT. The semi-colon is 
there sn that the next piece of text to be printed will be on the same 
line. In this case the next piece of text is stored in the variable name$. 
If you now change line 30 as shown and add line 4@ it will print a bit 
more afterwards. 


30 PRINT "Hello ";name$; 
4 PRINT " I am your Amstrad" 


Another useful feature of Amstrad BASIC is its UPPER$ command. This 
converts a string so that it is written entirely in capital letters. Add 
line 25 and try it. 


25 name$=UPPER$(name$ ) 


This should cause your name to be written in capital letters. The 
opposite of UPPER$ is LOWER$ and it works in exactly the same way. Try it 
and see! 


BEGINNER'S BASIC BASIC TUTORIAL 


That was inputting text but what about inputting numbers. These are 
handled in exactly the same way except that you have to put a numerical 
variable at the end of the INPUT statement as opposed to a string variable. 
The program below will clear the screen and ask you for two numbers. 


1¢ CLS 
26 INPUT "Enter number 1",numberl 
39 INPUT "Enter number 2",number2 


Note that by using a comma after the input text we have suppressed 
the question mark that appeared when there was a semi-colon after it. The 
next part of the program will find the average of them and print the ans- 
wer. Add the following lines. 


46 answer=(numberl+number2)/2 
5@ PRINT "The answer is";answer 


Note that there is no space between is and the speech mark (") and 
so you would have thought that the number would have followed straight on. 
However. all numbers on the Amstrad have a leading and trailing space. All 
that line 40 does is do the arithmetic. Anybody who knows how to calculate 
averages should be able to follow what it is doing. The answer is stored 
in the variable ‘answer’ which is printed in line 50. To print out the sum 
as well as the answer change these two lines. 


56 PRINT "The average of" s;number1; 
60 PRINT "and"snumber2;"is";answer 


So that this program is really friendly we can add a few lines at the 
beginning which ask for your name and prints an introduction. The bulk of 
this you have already seen. 


1¢ CLS 

2¢ INPUT "What is your name";name$ 

306 PRINT "Hello ";name$; 

49 PRINT " I am your Amstrad and" 

5@ PRINT "I am going to calculate averages' 
6% INPUT "Enter number 1 ",numberl 

76 INPUT "Enter number 2 ",number2 

80 answer=(numberl+number2) /2 

9% PRINT "The average of";number1; 

10@ PRINT "and"snumber2;"is";answer 


1 


The beauty of using variables is that you can change a program very 
Simply and without having to alter the bulk of it. For example, to change 
the program so that it calculates the sum of two numbers, change the fol- 
lowing lines. 

50 PRINT "I am going to calculate totals" 
86 answer=number1+number2 
94 PRINT "The total of":number]1; 


Here is a brief summary of the new commands covered in this issue. 
RENUM — Renumbers a program, with lines in steps of ten. 
AUTO - Automatically prints line numbers when ENTER is pressed. 
NEW ~ Clears the computer's memory of BASIC. 
INPUT ~ Gets a piece of information from the user. 
UPPER$ - Converts a string into capital letters. 
LOWER$ - Converts a string into lower-case letters. 


LETTERS 


In this column, we give your thoughts 
an airing, try to solve your problems and 
give you the chance to speak to other CPC 
owners. Don't hesitate to write to us at 
the usual address, 


Many thanks for the program tape 
and booklet. It all looks very inter-— 
esting and extremely helpful as I am 
very much a novice at computing but 
am eager to learn. I really think the 
magazine is far better than Amstrad 
Action. I am looking forward to Issue 
2 (even my wife enjoyed it!) 


R.M. DUGGAN 
HASTINGS 


P-O : It's always nice to start off 
with pleasant things but this must 
take some beating. We all hope you 
enjoy Issue 2 as much. 


This fanzine appealed to me be- 
cause of its serious side, and as the 
Firmware Manual is no longer available 
I hope that you will be covering this 
fact too. I would like to see a tool- 
kit without RSXs regarding sprite pri- 
nting, over and under background with 
collision check and scrolling back- 
grounds with new scenery as is done in 
professional games, if possible. I'd 
like to see in future - hacking, break 
point routines, a tutorial on artific- 
al intelligence and how to digitise 
sound. 


S. MESSINA 
HEYWOOD 


P-0 : In answer to your questions :- 
Yes, we are going to cover the firm- 
ware calls and if anyone knows of a 
shop which has got firmware manuals 
still in stock, please tell us !!! 

A toolkit, such as you request is not 
possible in this magazine due to space. 
However, there are some machine code 
routines which you may be able to ad- 
apt to suit your purposes in this 
isue. If anyone else has any routines 
please send them in as I am sure they 
will he appreciated. All of your other 
suggestions have been taken into acc- 
ount and if enough people show an int— 
erest. we may well print them in the 
future. 


FEATURE 


LIZ TIER 


Many thanks for your 
reply to my letter and for my 
copy of Print—Out. May I con- 
gratulate you on a first class 
issue one. With regard to your 
requests for suggestions and 
comments may I offer the foll- 
owing :- 

1. I found that quite often the 
printing disappeared under the 
binder. 

2. Name the authors of articles, 
as it gives the reader an extra 
point of contact with the maga- 
zine. 

3. Include really advanced lev- 
els of BASIC and M/C programming 
so as to attract the widest 
possible readership. 

4, Local computer shops may have 
special offers which you could 
advertise. You may get some ad— 
vertising revenue from this or 
perhaps a donation to offer as 

a prize. 


R.J. TAYLOR 
HARLOW 


P-O : In reply to your suggest- 


ions :- 

1. We have expanded our margins 
in an attempt to eliminate this. 
2. We understand what vou are 
saying, and in fact would do 
that, but as each of us contri- 
butes to each article it is not 
very sensible. 

3. We have tried to include a 
wide range of articles, for the 
beginner and the advanced user. 
However, if there is anything 
specific that you would like us 
to include then please tell us. 
4, If you know of any shops that 
might be willing to advertise in 
this magazine then please tell 
us. It doesn't matter where they 


are if! 


NAME AND ADDRESS STORER 


Storer — an example 


database listing 


Instructions 


This program is designed to be an example of a simple database. Unlike 
a database, however, the fields are already set and it is designed for the 
express purpose of holding names and addresses. The program allows you to 
hold up to 1000 names, addresses and telephone numbers. We have tried to 
make it as extensive and complete as possible, but due to its size there will 
be omissions. The program gives you eight main options and they are shown 


below :- 


LOAD a file 


SAVE a file 


EDIT a file 


VIEW a file 


SORT a file 


INI 


FIND entry - 


This allows you to load a previously saved file into the pro- 
gram for editing, viewing, etc. 


This allows you to save a file which has been created or edi- 
ted for future use. When ready it is reloaded using the LOAD 

a file command. By using the save command you do not lose the 
information in the program before the SAVE was issued. By us- 
ing option 8 - QUIT program - you can clear all the data from 
the program and then restart. 


This enables you to change any entry in the file, either bec- 
ause of a mistake or a change of address, etc. You can change 
any entry either totally or in bits (eg. iust the phone num-— 
ber). The program prints up many on-screen messages to help 
you enter the correct information. 


This displays the entire file alphabetically (presuming you 

have used option 5 - SORT a file) or in the order they were 

entered. At any time you can return to the main menu to make 
another choice. 


This routine sorts the file alphabetically (using the name). 
There are one or two small problems with this routine. The 
biggest being the if you have two people with identical sur- 
names it will come up with an error message. One way round 
this is to enter names in the following way :- SURNAME, 
INITIALS (eg. BLOGGS, J.) as long as you enter them ina 
consistent manner the program should be alright. 


This allows you to search through a file until it finds an 
entry. The comnuter will ask you for either the name. phone 
number or address (only the first line) and then search the 
file until it finds the entry. If it does not exist then the 
computer will tell you. 
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M Name and Address Storer 
>) 1989, Thomas Defoe 


R 

GOSUB 280:REM Initialisation 

GOTO 100:REM Main Menu 

MODE 2:PRINT "Do you want or restart (Y/N) ?" 
ag=INKEY$:IF ag="" THEN 70 

IF UPPERS (a$)="Y" THEN RUN 

MODE 2:END 


REM Main Menu 

CLS:LOCATE 24,3:PRINT "MAIN MENU" 

LOCATE 27,5:PRINT "Please enter your choice" 
LOCATE 30,7:PRINT "1) LOAD a file" 

LOCATE 30,8:PRINT "2) SAVE a file" 

LOCATE 20, Q:PPINT "3) EDIT a file" 

LOCATE 39,10:PRINT "4) VIEW a file" 

LOCATE 39,11:PPRINT "5) SORT a file" 

LOCATE 39,12:PRINT "6) FIND entry" 

LOCATE 30,13:PRINT "7) CREATE file" 

LOCATE 230,14:PRINT "8) QUIT program" 
know="12245678" where=0 

aie TNREVE:IF ata" THEN 229 

wh TR (know ,a$) 

IF where=0 THEN 220 

ON where GOSUB 370,520,670 ,1120,1850 1280 1650 ,60 
GOTO110 

END 

REM Initialisation 

MODE @:INK 0,0:INE 1,24:PAPER O:PEN 1:BORDER 7 
MOVE O,O:DPAW 629,399:DRAW 639,0:DRAV 0,0 

WINDOW #0,2,79,4,20:WINDOW #1,2,79,21,4:PEN #1,0 
PAPER #1,1:CLS #41:WINDOW #2,2,79,2,3 

LOCATE #2,27,1:PRINT #2,"Name and Address Storer" 
DIM name .:DIM phone(1000):DIM address$(1000) 
number=0 

RETURN 

REM Load = file 

CLE:LOCATE 20 8:INPUT "Pleace enter filename :- " files 
TF LEW (fileS)s6 THEN 380 

OPEN IN files 

INPUT #0 ber 


FOP i=1 TO numb 
INPUT #0.n c 
INPIT #0 shone (i) 
FOR i=1 TO 4 


INPUT #9 addrese$¢i,f) 
NEXT 3 

NEXT i 

CLOSE IN 

CLs 
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RETURN 

REM Save a file 

CLS:LOCATE 20,6:INPUT "Please enter filename :- ",file$ 
IF LEN (file$)>6 THEN 530 

OPENOUT files 

PRINT #9, number 

OR i=1 TO number 


FOR i num 

PRINT #9 name$(i) 
PRINT #9 phone (i) 

FOR isi TO 4 

PRINT #9 address (1,1) 
NEXT 3 

NEXT i 

CLOSEQUT 

CLS 

RETURN 

REM Edit a file 
CLE:PRINT "What is the person's name "; 
INPUT 2 


+ 


df=UPPERS (namef(i)) THEN GOTO 760 


ear 


0 re ig no-one called ";UPPEPRS (ed$) 
OR T=1 TO 1500:NEXT t:RETURN 


+ 
r 
& 


REM 

LOCATE #1,4,2:PRINT "Person number :- "i 

LOCATE 20,4:PRINT "Name :- "; name$() 

LOCATE 2O,O;PRINT "Phones: + ehonet1) 

LOCATE 20,6:PRINT "Address :- " 

FOR TO 4 

bac O,6+3:PRINT addreseS (i,t) 

NEXT i 

LOCATE 2 "Is the NAME right (Y/N) >" 

ato ™NKEY HEW 859 

TE WPPERS HEN 889 

LOCATE 29 "Enter correct name :- "imameS(i) 
TOCATE 20 SPACES(70):LOCATE 20,14:PRINT SPACES (70) 
LOCATE 29, "Ts the PHONE number. right (Y/N) 2" 
af= INKEYS:IF as="" THEN 990 

TF UPPERS (af)="Y" THEN 940 

LOCATE 20,14:INPUT "Enter correct number :- " phone (i) 
LOCATE 20,13:PRINT SPACES(70):LOCATE 20,14:PRINT SPACES (70) 
LOCATE 20,13:PRINT "Is the ADRESS right (Y/N) ? " 
af=INKEYS:IF ag="" THEN O50 

If WPPERS(aS)="Y" THEN 1030 


‘PRINT “Enter correct line"sj; 
dress :- ",address$(i,j) 
‘PRINT SPACES(70):LOCATE 20,14:PRINT SPACE$(70) 


Oo 
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NEXT j 

CLS 

CLS:LOCATE 20,4:PRINT "Name :- "j;name$(1) 
LOCATE 20,5:PRINT "Phone :~ ";phone (i) 

LOCATE 29,6:PRINT "Address :- "; 

FOR j=1 TO 4 

LOCATE 24,6+4:PRINT address$(Q,) 

NEXT i 

LOCATE 20,12:PRINT "Press any key to continue” 
aS=INKEYS:IF Ag="" THEN 1100 

RETURN 

REM View a file 

FOR i=1 TO number 

CLS 

LOCATE 6,3:PRINT “Person :- "ji 

LOCATE 20,4:PRINT "Name :- "j;name$(i> 

LOCATE 20,5:PRINT "Number :- "jnumber (i) 
LOCATE 20,6:PRINT "Address :-" 

FOR j=i TO 4 

LOCATE 24,6+4:PRINT address$(4i,}) 

NEXTI 

LOCATE 20,12:PRINT "Press any key to continue" 
LOCATE 20,13:PPINT "or SPACE to return to menu" 
aSsINKEYS:IP aS="" THEN 1240 

TF ag=" " THEN RETURN 

NEXT i 

RETURN 

ROM Pod Entry 

CLE:LOCATE 24 4:PRINT "Select one from the fellowin 
TOCATE 26,6:PRINT "1) Name" 

LOCATE 24,7:PRINT "2) Phone" 

LOCATE 26,8:PRINT "23) Address" 

knowS="123" wheres 

en=1 

aG=INVEYS:IF a$="" THEN 1350 

where=INSTR (knew$,a$? 

IF where=0 THEN 13590 


LS:LOCATE 20,7:PRINT "Name :— "jname$ (i) 
LOCATE 20,8:PRINT "Phone :- ";phone (i) 

LOCATE 20,9:PRINT “Address :-" 

FOR j=1 TO 4 

LOCATE 24,9+j:PRINT address$ (i,j) 

NEXT } 

LOCATE 29,15:PRINT "Presse any key to continue" 
ag=INVEYS:IF ag="" THEN 1470 


";finds 
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":GOSUB 2070 

a 4,15:PRINT "Is 
=INKEYS:IF ag="" THEW 1820 

: UPPERS (af>="N" THEN GOTO 1680 

number=numberti:GOTO 1670 

REM Bubble Sort 


names di) ERS ¢ 

NEXT i 

FOR k=! TO number 

FOR i=! TO number 
one=i:tworit 

IF two=number+1 THEN GOTO 1950 
GOSUR 1970 

NEYT i 

NEXT & 

PETUPRN 

REM Sort 

j=i 

IF 3>15 THEN PRINT "Ple 
af=MID$ (name$ one) ,3,1) 
aS=MIDS$ (name$ (two) 3,1) 


$(name$(i))=find$S THEN RETURN 


20,4:INPUT "What is the address ";finds 


i=l 
TPPERS (addrese$ (i,j) =UPPERS (finds) THEN RETURN 


‘PRINT "What is line";1;" of the address"; 


all this information correct 7?" 


ace change name":FOR t=1 TO 3000:NEXT t:RETURN 


2020 a=ASC (aS) 
2030 b=ASC (b$) 
2040 IF a=b THEN j=j+1:GOTO 1990 
2050 IF a>b THEN GOSUB 2090 
2060 RETURN 
2070 LOCATE #1,4,3:PRINT #1,"Entry being made :- ":field$ 
2080 RETURN 
2090 REM Swap 
2100 hold$=name$ (one) :phone (one)=phone (two) :phone (two) =hold$ 
2110 pold=phone (one) :phone (one)=phnoe (two) :phone (two)=pold 
2120 FOR z=1 TO 4 
2130 add$=address$ (one,z) :address$ (one,z)=address$ (two,z) 
ddress$(two,z)=add$ 
AE 

ne 


id 
“ 


URN 


OOPS! 


ee Line 211% should read :-— 


2116 pold=phone(one) : phone(one)=phone(two) : phone(two)=pold 
and 1179 1170 LOCATE 26,5:PRINT "Number :- "sphone(i) 


CONT. 


CREATE file - This allows you to enter as many names, addresses and 
telephone numbers as you want (upto a maximum of 1000). 
To end this option type ~ *END — instead of a name and 
you will be returned to the main menu. After you have 
entered all the information on one person (some can be 
left blank) you will be asked whether it is correct. If 
it is you will have a chance to enter information for 
the next entry otherwise you will be able to redo the 
same entry. The program allows you to enter 1 line of 
names, 1 line of phone numbers and 4 lines of address 
per person. 


QUIT program - This self explanatory, upon selecting this option, you 
will be asked if you wish to start again. If you don't 
the program will end. If you do restart the program will 
recommence with all data removed. Thus it can be used as 
a short-cut instead of reloading the program. 


The program has on-screen messages through-out which we hope will help 
you not to become lost or confused whilst using it. A slightly modified 
version is used to store our information as to which orders have been 
despatched, printed, recorded etc. and we find that it is a great help 
and reduces the number of sheets of paper with addresses that are lying 
around. 


12 


GAMES 
REVIEWS 


Loe oa 


f/ 4 
al 


e 
Review This is another budget releases from The Hit Squad 


and costs £2*99 on tape only. This is Batman's sec- 
ond release - it was first released as a full price game in 1986 by Ocean. 
It is also the predecessor of the excellent Head Over Heals (again from 
Ocean) and is indeed written by the same people, Jon Ritman and Bernie 
Drummond. Batman should not be confused with 'Batman — The Caped Crusader' 
or the movie tie-in which will no doubt be quick to appear. 

As you can guess, you play Batman who, with the aid of his batboots, 
batbag, bat-thruster and batbelt (and anything else he can lay his hands 
on:), must save Robin, who is the prisoner of the Joker and the Riddler. 
The only way to rescue Robin is to find the various pieces of the bat- 
craft which lie scattered around the maze beneath the Batlair. Once the 
batcraft has been assembled, Batman needs to find the launching-pad from 
which he can fire up the engines and go in search of Robin. 

As usual, you are given the choice of using the standard keys or 
redefining your own. You can adjust the level of sound in the game to 
suit all tastes and also adjust the sensitivity. However, the sensitivity 
menu was poorly explained and seemed to do very little to the game. All 
of these options are controlled from a series of menus. Owners of Head 
Over Heels, Matchday or Matchday II will already be familiar with this sty- 
le of menu. 

As might be expected, the game is viewed in 3D perspective and move-— 
ment is also in 3D. This adds greatly to the game as detailed and complic- 
ated moves can be executed. The graphics are similar to Head Over Heels & 
as usual are very detailed and beautifully animated. The sound is not out- 
standing, just a few sound effects, but the game does include several good 
tunes at the beeinning and end. The playing area is large and most rooms 
contain a puzzle or problem which must be solved before access can be made 
into other rooms. These puzzles are probably the game's greatest asset - 
after all, no matter how beautifully the game looks or sounds, it is the 
problems that make it. However, once you know what order to place the 
blocks in, it is relatively simple to progress. Batman is slightly slow 
in that because the man moves slowly - the game moves slightly slower than 
I would have liked. Having said that, Batman is still a truely first- class 


game even though it is 3 years old. Excellent !2! 
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GAMES REVIEW FEATURE 


lark I found the menu system (especially definine the keys) very 


complicated and I am sure that it could have been done better. The instru- 
ctions were also rather sketchy on this point but this was probably due to 
lack of space. The graphics were good as were the sound effects, but I 
missed the tune during the actual game. I found the game quite enjoyable. 
Overall an average game, but at this price - whose complaining. 


18% 


Jon Batman is an excellent game with a well thought out layout 
and plot. The graphicssare extremelv good and the sound was acceptable, if 
not brilliant. The skill level on this game is just right and I think that 
it will take a very long time to complete. 

cy 
83% 


As a person who already owns Head Over Heels, I was looking 
forward to reviewing Batman. T was not disappointed. The graphics are of 
the usual high standards and the sound effects are well done. This game 
will suit everyone. The arcade fan will find something in it, the strategy 
planner will enjoy it and the normal games-player will have a field day!! 
This game is probably as close to an arcade-adventure as we will ever get. 
It is without doubt, the gameplay which makes this game something to rem- 
ember. At no time did it become boring, and it's horribly addictive. 


80 % 


Batman from the Hit Squad 
costs £2°99 on tape only. 


COBRA 
IFOIRCIE 


Review 


This is another budget game which costs £2*99 (tape only) and is this 
time released by Players Premier. This game has no real,strong story-line - 
just blast and destroy !!!! However, from the instructions you do discover 
that you are flving an AH-1W Super Cobra that is armed with a standard M197 
20mm machine gun and twenty or so Hellfire armour piercing missiles. Your 
aim is both complex and difficult. Not only do you have to reach the end of 
the level but collect all the fuel drums and destroy all the defence inst-— 


allations as well as the 'enemies' awesome weapon' - then onto level 2. 


GAMES REVIEW FEATURE 


When certain alien ships are destroyed, your helicopter gains extra 
weaponry or a replenished missile supply. The graphics are good and are 
extremely detailed as well as being colourful. The main fault with the 
game is the lack of sound. There are just a few feeble effects and there 
is no music/tune of any kind throughout the entire game. The other dis- 
appointment is the inability to redefine the keys. The instructions are 
also sadly lacking - by pressing the 'BOMB' key you can use a Smart bomb, 
what BOMB key ? 

Information is clearly displayed and the scrolling is very smooth, 
and the explosions are well done. However, it is after all just another 
shoot-'em-up but at £2°99 it is probably one of the best. If you like 
traditional blasting games then this is for you. 


Mark lark I found Cobra Force very addictive, as I particularly 


enjoy fast action games. The graphics were excellent but the sound was 
poor - I would have liked a catchy tunes I think that it represents 
excellent value for money and rank it very highly indeed. 


Jon The graphics in Cobra Force were excellent and the 
screen layout was also good. I disliked the key layout and found the 
game far too hard. The lack of music also detracted from the game. Not 
a particularly good game but at this price you don't expect too much. 


Tom 66 


——— The graphics were exceptional, the gameplay was good, 
the controls were acceptable, the instructions were awful, the sound 
was abysmal and the music was non-existent. It all depends what you want 
from a game whether you like this. I did! 

6) 


ADVANCED BASIC ~ GRAPHICS BASIC TUTORIAL 


BASIC Graphics 
COLOUR 


In this,the second part of our guide to the Amstrad's graphics comm- 
ands, we look at colours, text and various other commands which were not 
covered in the last issue. 


Probably the most confusing part of Locomotive BASIC is the way in 
which colours are used and, of course, colours are VERY important. In 
each of the three screen MODEs, you can have a set number of colours 
displayed at any one time and these are shown in the table below. There 
is also a column headed 'SCREEN SIZE (Memory)' and this tells you how 
much memory one screen takes up in each of the MODEs. If you don't know 
about memory and 'K' you should read the section 'What is my Amstrad ?' 
in Issue l. 


MODE NUMBER OF COLOURS SCREEN SIZE (Memory) 
0 16 simultaneously 16K 

1 4 simultaneously 16K 

2 2 simultaneously 16K 


How, you may be asking, can MODE 0 have 16 colours available and 
still take up the same amount of memory as MODE 2 which has only two 
colours available? The answer is simple. In the different modes the 
memory is used in different ways, so 16K is still used to store ALL the 
screen data but this data changes according to the mode you are in. 

Now, this simple answer is all very well but we really need to be 
a bit more specific about. In order to explain this I will need to rem- 
ind you of some points that came up in Issue 1. Firstly, the screen is 
made up of a grid of pixels of size 640 x 200. In different modes you 
can address different numbers of pixels independently. In MODE 2 you can 
address all 640 x 200 (or 128,000) pixels separately, in MODE 1 vou can 
control 320 x 200 (or 64,000) pixels and in MODE 0, 160 x 200 (or 32,000) 
pixels on their own. Of course the other pixels don't disappear but the 
horizontal pixels are lit up in groups. In MODE O they are lit in groups 
of 4, in MODE 1 in pairs and in MODE 2 on their own. 

As we have alreadv said, in MODE 2 you can address 128.000 pixels 
and as you have only two colours, the foreground and the background, the 
pixels can either be on or off. This information about the state of the 
pixels is easy to represent in Binary — Os (off) and 1s (on). Therefore 
the data for one pixel can be stored in one bit and sno a MODE 2 screen 
can he stored as 128,000 bits. This can be written as 16,000 bytes, as 
there are 8 bits in a byte, or 16 kilobytes (1000 bvtes in a kilobyte). 
This is where the screen size 16 K is found. 

That has only explained half the problem. We now know why a MODE 2 
screen takes up 16K but why do MODE O and MODE 1 screens do the same ? 
We know already that MODE 1 screens have 64,000 separate pixels and this 
is the equivalent to 8K of MODE 2 data. However, in MODE 1 you have four 
colours and these cannot be all he stored in binary usine just Os and Is 
as with MODE 2. Therefore to distinguish between four colours you need 
four combinations of Os and 1s and they are 00, 01, 10 and 11. 
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As you will have realised you cannot store that information about MODE 1 
colours in just one bit — but you need to bits. So for every pixel two bits 
are assigned and thus 128,000 bits are needed (64,000 x 2) and this is also 
16K. 

Likewise in MODE 0 you need to store information for 16 colours and so in 
binary these are represented as :- 0000, 0001, 0010, 0011, 0100, 0101, 0110, 
0111, 1000, 1001, 1010, 1011, 1100, 1101, 1110 and 1111. As the horizontal 
pixels are lit in groups of four, you have 32,000 independent pixels and each 
of these needs four bits (or 3 byte) and so it takes up 128,000 bits or 16K. 

So much for all the theory, but what colours can we use? The Amstrad has 
27 colours available and they are :- 


Number Colour Number Colour 
0 Black 14 Pastel Blue 
1 Blue 15 Orange 
2 Bright Blue 16 Pink 
3 Red 17 Pastel Magenta 
4 Magenta 18 Bright Green 
5 Mauve 19 Sea Green 
6 Bright Red 20 Bright Cyan 
7 Purple 21 Lime Green 
8 Bright Magenta 22 Pastel Green 
9 Green 23 Pastel Cyan 
10 Cyan 24 Bright Yellow 
11 Sky Blue 25 Pastel Yellow 
12 Yellow 26 Bright White 
13 White 


The small program below will allow you to see them in all their colour- 
ful glory, unfortunately for green screen owners, you'll just see different 
shades of green. 


1@ REM Colour Printer 

20 MODE @:PAPER @:BORDER 7 

36 cl=@:c2=14:FOR j=cl TO c2 

46 INK j,j:NEXT i: INK 15,24 

50 LOCATE 7,1:PEN 15:PRINT “Part 1" 

66 FOR j=l TO c2:FOR i=1 TO 4¢ 

70 MOVE i+( j*46) ,30G:DRAW i+( j*4@) , 359, j 
86 NEXT i:NEXT j 

9¢ IF c2=11 THEN GOTO 9¢ 

10% LOCATE 4,9:PEN 15:PRINT "Press anv kev" 
11@ a$=INKEY$:TF a$="" THEN 116 

126 c2=11:FOR j=cl+1 TO c2 

13@ INK j,j+15 

140 NEXT j 

150 INK 6,¢ 

16@ MODE @:LOCATE 7,1:PEN 14:PRINT "Part 2":GOTO 6¢ 


Earlier I mentioned foreground and background and now we will turn our 
attention to these as we have wavs of setting the colour of both. The back- 
ground is the main part of the screen that all letters, lines and patterns 
appear on and so is like a sheet of paper. The foreground is all of the bits 
that appear on the background like lines and letters and is similar to the 
pen. 


ADVANCED BASIC — GRAPHICS BASIC TUTORIAL 


PAINT POLS 


Probably the easiest way of thinking of colours on the Amstrad is to 
imagine that in MODE 0 you are given 16 paint brushes, four in MODE 1 and 
two in MODE 2. You can dip each of these paint brushes into any of the 27 
paint pots provided but are limited bv the number of paint brushes that 
you are given. 

To dip your paint brushes in a paint pot you use the command INK. You 
can then select the background colour by using PAPER and the foreground 
colour by using PEN. 


INK - This is used to select the colour to be assigned to a certain pen 
or paper and is followed by two numbers. The first of these is the number 
of the paint brush that you are assigning a colour to, and the second is 
the number of the colour. So to set the ink in paint pot 1 to black you 
would use the command - INK 1,@. 


PEN - This command is used to set the foreground colour and is followed 
by one number. This number is the number of the paint pot that is to be 
used and not the colour's number. So to set the foreground to yellow you 
would use the commands ~— INK 1,12:PEN 1. 


PAPER ~ This is used to set the background colour and is similar in use 

to PEN. It is also followed by one number and this is also the number of 
the paint pot that it is to use. To set the background bright green, you 
would use the commands - INK @,2@:PAPER @ 


FLASHING INAS 


To have flashing colours is really very simple. You just give the 
INK command an extra number which specifies what the second ink will be. 
For example, to set INK 1 to flash bright white then black use the com- 
mand -— INK 1,26,@. To vary the speed of flashing you use the command 


SPEED INK - This is followed by two numbers. The first says how long 
the first colour should be on the screen in 1/50 second and the second 
number specifies the time the second colour should be on the screen. So 
to have a sudden stab of bright white followed by a long gap use the 
commands -— TNK 1,26,0:SPFED INK 1,50. 


BORDER - This sets the colour of the border of the screen which acts 
rather like a picture frame. Unlike PEN and PAPER it uses the value of 
the colour rather than the value of an ink. So to set the border to red 
use — FORDER 3. 


TEXT 


You may remember that you could print and position text by using 
the LOCATE x,y command. However, for some purposes this may be a little 
inaccurate and so you can use TAG. After issueing the command TAG all 
text will be printed at the graphics cursor position complete with a 
few extra arrows. To remove the extra arrows you must end the PRINTing 
line with an ;. So to print the word Hello at 160,2@@ use the commands 

TAG:MOVE 164,206:PRINT "Hello"; :TAGOFF 
The command TAGOFF simplv tells the computer to resume printing text at 
the text cursor as opposed to the graphics cursor. 


That rounds off this issuds section on BASIC Graphics but there 
are also sections on Pallette Swapping and Multi-coloured Graphics. 


So until the next issue, keep experimenting {ti 
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10 

20 

30 

40 

90 

690 

70 

80 
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110 
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180 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


NB : This program appeared on the Program Cassette for Issue 1 and was 
designed to be published along with the Language Tester program in our 
first issue. However, limitations in space forced us to omit it and it 


has been adapted to run as a stand-alone program. 


CHARACTER DESIGNER 


This program will allow you to create and design characters for use 
in your own programs or, as it was designed to, create foreign letters 
for use with the Language Tester program in Issue 1. The program offers 
you three choices and they are :- 


CHOOSE Character - This allows you to see what character you are 
about to edit. It defaults to ASCII 65, the letter A. 

EDIT Character - This allows you to edit the character chosen & 
you control the cursor by using the cursor keys. SPACE cha- 
nges the pixel and ENTER returns you to the main menu. In 
the box labelled 'IMAGE' the character is shown as it would 
appear when printed for real. 


REM OOOO OOK KOK KKK OK KK KKK 

REM * Character Designer x 

REM OOOO KOKO KOK KKK 

MODE 1:INK 0,O0:INK 1,24:INK 2,16:INK 3,9:PEN 1:PAPER O:BORDER 7 
MOVE 0,0:DRAW 0,399,1:DRAW 639,399:DRAW 639,0:DRAW 0,0 
MOVE 12,252:DRAW 12,386:DRAW 146,386:DRAW 146,252:DRAW 12,252 
LOCATE 15,3:PRINT "Character Designer" 

MOVE 220,351:DRAW 3512,351:MOVE 200,0:DRAW 200,399 
WINDOW #1,2,9,29 

WINDOW #2,2,11,11,12 

WINDOW #3,2,11,16,23 

WINDOW #4,14,39,5,16 

WINDOW #5,14,39,11,23 

char=6S:endchar=255 

DIM grid(9,9) 

DIM tot(8) 

lin=20 

GOSUB 230 

MOVE 0,200:DRAW 200,200 

LOCATE 4,15:PRINT "IMAGE" 

GOSUB 290:REM Main Menu 

END 

REM KOKO OK KOK KKK 

REM x Print Character x 


REM OOK KOK KOK KOK KKK KK 

LOCATE 2,11:PRINT "ASCII -—"3char 
LOCATE 2,12:PRINT "Char —";CHRS$(char) 
RETURN 

REM OOK OOK KOK 


REM * Main Menu x 

REM OK KK KOK KK KK 

PEN 1:LOCATE 16,6:PRINT "1) Choose Character" 
LOCATE 16,7:PRINT "2) Edit Character" 

LOCATE 16,8:PRINT "3) Calculate Values" 
know$="123" 

Iin$=INKEY#: IF int=""" THEN 360 
where=INSTR(know$,in$) 
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380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
ro 6) 
320 
930 
940 
550 
960 
370 
380 
3970 
600 
610 
620 
&30 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7350 
760 
770 
780 
790 
800 
810 
820 
B30 
840 
850 
B40 
870 
BBO 
890 
900 
910 


CHARACTER DESIGNER BASIC PROGRAM 


PAGE 2 (Program continued) 


IF where=O0 then 360 

ON where GOSUB 410,500,980 
GOTO 290 

REM OOK OK OKO OK OK 
REM * Choose Character x 


REM 00000 OKO OK Kk 

LOCATE 16,4:PEN 3:PRINT "1) Choose Character" 

CLS #5:PEN #5,i:LOCATE #5,2,2: INPUT #5,"Enter ASCII code:-",char 
IF char<32 OR char>255 THEN GOTO 450 

PEN 1 

GOSUB 230:CLS #5 

RETURN 


REM KOKO KKK KOK Kk 
REM * Edit Character x 

REM kK KK KKK KOK K KKK 

PEN 3:LOCATE 16,7:PRINT "2) Edit Character":PEN 1 
CLS #1:CLS #3 

x=2ty=2ox=x roy=y 

FOR i=i TO 9:FOR j=i TO 9 
grid(i,j)=0 

NEXT j,i 

LOCATE x,y:PEN 1:PRINT CHR$(143) 

IF INKEY(0)<>-1 AND y>2 THEN y=y-1 
IF INKEY(2)<>-1 AND y<9 THEN y=y+i 
IF INKEY(8)<>-1 AND x>2 THEN x=x-i 
IF INKEY(1)<>-i AND x<9 THEN x=x+i 
IF INKEY(47)<>~-1 THEN GOSUB 730 

IF INKEY(18)<>-1 THEN RETURN 

IF ox=x AND oy=y THEN GOTO 600 
LOCATE x,y:PEN i:PRINT CHR$(143) 

IF grid(ox,oy)=i THEN PEN 3 ELSE PEN O 
LOCATE ox,oy:PRINT CHR(143) 
Ox=xs0y=y 

FOR i=1 TO 30:NEXT i 

GOTO 600 

REM OOK KOK KKK 

REM X* Change Pixel x 

REM OOK OOK OK KKK 

IF grid(x,y)=O THEN GOSUB 800:RETURN 


IF grid(x,y)=1 THEN GOSUB 890:RETURN 
WHILE INKEY(47)<>-1:WEND 

RETURN 

REM KxKxXKKxX 

REM * ON x 


REM xXxkxkxKxkxX 

Qrid(x,y)=1 

PLOT 60+(2kx),100-(2ky),1 

WHILE INKEY(47)<>~1:WEND 

IF TEST (60+(2kx),100(2ky))<>-1 THEN GOTO 840 
Ox=x:0y=Y 

RETURN 

REM xxXxXKxkxk 

REM xk OFF x 

REM XxkKKKKX 
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920 

930 

940 

9350 

960 

970 

980 

990 
1000 
1010 
1020 
10390 
1040 
1050 
1069 
1070 
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1090 
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1110 
11290 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


CHARACTER DESIGNER BASIC PROGRAM 


PAGE 3 (Program continued) 


grid(x,y)=0 

PLOT 60+(2kx),100-(2xky) ,0O 

HILE INKEY(47)<>-1:WEND 

IF TEST (60+(2kx),100-(2ky))<>0 THEN GOTO 930 
Ox=xoy=y 

RETURN 

REM KKK KK KKK KKK 

REM x Calculate x 

REM XXX KKKKKKKKKX 

PEN S3:LOCATE 16,8:PRINT "3) Calculate Values":PEN 1 
FOR i=1i TO 8 

tot(i)=0 

NEXT i 

FOR row=2 TO 9 

RESTORE 1220 

FOR column=2 TO 9 

READ worth 

IF grid(column,row)=1 THEN tot(row-i)=tot(row-1)+worth 
NEXT column 

NEXT row 

LOCATE 16,11:PRINT "The values for character" 
LOCATE 16,12:PRINT char;"are :-" 

FOR i=i TO 8 

LOCATE 16,1i+13 

PRINT tot(i) 


NEXT 

PRINT:LOCATE 15,23:PRINT "Press any key to continue" 
aS$=INKEY$: IF at=""" THEN 1190 

CLS #5 

RETURN 

DATA 128,64,32,16,8,4,2,1 


The third option is :- 

CALCULATE Values — When you are satisfied with your design, by press- 
ing '3' a list of numbers will appear and these will need to be 
written down. When you want to use the new symbols type in BASIC, 
or in your own programs 


SYMBOL AFTER 32 
SYMBOL n,list of numbers 


Where n stands for the character's ASCII code and in place of 
list of numbers you put the numbers that you noted down earlier. 
Here is an example of a modified letter ‘A’. 


SYMBOL 65,252, 30, 243,51, 255,51, 243,0 


For details on how to put these new symbols into the Language 
Tester program see Issue 1. 


One or two errors have crept in and they are :- 
550 x=2:y=2:0x=x:oy=y 

866 IF TEST(66+(2*x) ,160-(2*y))<>1 THEN GOTO 84¢ 
960 ox=x:oy=y 
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QUESTIONNAIRE RESULTS 


The response to our prize questionnaire in Issue 1 was suprisingly 


good and so we decided to print the results for all to see and they are 
shown below. 


1) 
2) 


3) 


4) 


5) 


6) 


7) 


9) 


10) 


11) 


What type of Amstrad have you got ? CPC 464 - 50% CPC 6128 ~ 50% 
What other computers, if any, have you got ? The most common ans— 
wer was a Videogenie but Amstrad PCs, Amigas and Atari STs also 

featured. 
What is your main use for your computer ? Word processing — 40% 
Programming ~ 50% 
Games playing - 5% 
Other uses - 52 
What program/game/utility do you use most ? Most people seemed to 


use a word processor of sorts, Mini Office I or some of their own 
utilities. The most popular word processor was Protext (40%) with 
Brunword, Amsword and Tasword each having a 20% share. 


What hardware, if any, do you own ? The most popular item was a 
printer (50%) of various makes, then came an FD-1 Second Drive 
(30%) followed by a DD-1 First Drive (20%) for the CPC 464. It 
was suprising the number of people who had bought an FD-1 for 
their CPC 6128 as a second drive as opposed to a larger drive. 
Also featuring were ROM Boards, mice, light pens, speech synth- 
esizers, clocks and, of course, the Multiface I+. 


How long have you had your Amstrad ? The average length of time 


appears to be 3 years although replies varied from 5 to 4 a year. 


& 8) As these were so varied and diverse we have decided not to pri- 
nt them but rest assured, they have all been taken into consider-— 
ation. In general though, you seemed to like the magazine as a 
whole but did have one or two minor criticisms and we have tried 
to solve them. Whilst we are on the subject of complaints, we 
thought we would say how delighted we were to receive so many 
letters concerning the discontinuation of the Firmware Manual. 

We will pass all the letters on to Amstrad PLC and we hope that 
they and many others will change their minds. So if you've got 
something to say, say it through us. 


Do you want more or less or the same of the following articles ? 
PROGRAMS More — 80% Same — 102 Less ~ 10% 
REVIEWS More ~ 50% Same — 15% Less -— 35% 
ARTICLES More — 50% Same -— 35% Less -— 15% 
HARDWARE More - 25% Same - 50% Less — 25% 
BASIC More - 75% Same — 20% Less - 5% 
MACHINE CODE More - 80% Same — 10% Less -— 10% 


What thing(s) would you like us to include in future issues ? 
Again these were very varied but we have printed some ideas below 
and the most popular ones have been included in this issue. They 
are competitions, letters, tips page, bank manager, sound, poking 
and hacking and serious software reviews. 


How did you hear about PRINT-OUT ? Of course the answer to this 
was almost unanimous. AMSTRAD ACTION. It seems only fitting that 
we should use this opportunity to thank Amstrad Action for all 
their help and publicity. 


The Winner of our competition is 5.J.Cookson from Hesketh Bank. 


MACHINE CODE PROGRAMMING 


MACHINE CODE 


First of all, an apology. Many thanks to all those people who wrote 
in to point out the error in the last issue's Machine Code section. This 
refers to the Zero flag. I think that the best way to clear this problem 
up is to let someone who spotted the error, explain. So here is what BOB 
TAYLOR of Harlow has to say on it :- 'On page 33 in lines 20 to 22 it is 
mistakenly stated that the Zero flag is a @ when set. JT think that this 
is a perfectly logical way to expect it to operate, but in actual fact, 
the set or Zero state is a 1 and non-Zero is a @.' This is quite correct 
and we offer our apologies to all those people who have been struggling 
with the Zero flag. The above statement is true of all flags, not just 
the Zero flag, and we hope this error has not spoilt your enjovment too 
much, 

Secondly, a plea for help. Many people have written in, asking for 
move advanced/basic articles on Machine Code and BASIC. However, they 
do not tell us exactly what they want, and this is not very helpful. So 
if you want us to include something different please tell us. After all, 
WHAT we think is advanced may be considered by some as basic, and vice 
versa. Our other plea is for programs. We are sure that many of the 
people who read Print-Out have either short routines or long programs. 
What ever they are, what ever you do, we want to know. After all, there 
has never been a better time to send in your programs when you can win a 
copy of MAXAM on tape for your trouble. So PLEASE send your programs in, 


But now onto Machine Code. If you remember, last month we printed 
text onto the screen, this issue we are going to print the text in diff- 
erent places on the screen and do one or two other things. However, for 
all of vou who are still using the BASIC poker in the last issue, we 
introduce an updated version. It includes a new command, MEMORY. 


MEMORY - If you wrote a machine code program that started at address 
&4660 and then wrote a very long BASIC program, it would be possible to 
wipe out the machine code program. In order to prevent this you could 
reserve a certain amount of room for the machine code program by use of 
the MEMORY command, What this does is set the upper limit for a BASIC 
program and leaves the spare memory above this untouched for use by 
machine code programs. So to reserve all memory above &4@Q0 for use by 
machine code programs you would execute the command — MEMORY &3FFF to 
set the upper limit for BASIC to &3FFF. If you wish to find out where 
the upper limit of memory is you can use the command HIMFM - to see 
where the upper limit is use the instruction — PRINT HIMEM. HIMEM can 
also be set using the following type of expression 

MEMORY HIMEM~10¢ 


For those of you have Issue 1 and the BASIC poker need to add 
the following line :- 


85 MEMORY &3FFF 


This means that none of the programs entered in print can be lost 
due to over-writing by a BASIC program. As far as the user is concerned 
the program will be how it was before. NOTE :- Any memory above HIMEM 
is not affected by the NEW command. For those of you who have not got 
the BASIC poker, the new version is printed on the next page. Version 
2 of the poker appears on this issue's program cassette. 
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MACHINE CODE PROGRAMMING 
Version Two of the BASIC poker :- 


1@ REM Basic Poker2,(c) 1989 T.Defoe 

20 REM Type in hexadecimal codes as shown 

3G REN (Note that spaces should be disregarded 
4 REM and numbers can be typed in separately) 
50 REM Type 'END' to finish data entrv and in 
6@ REM BASIC type 'CALL &406¢' to make it work. 
70 REM 

80 REM 

85 MEMORY &3FFF 

96 addr=84909 

166 INPUT "What is the hexadecimal number":a$ 
116 IF UPPER$(a$)="END" THEN END 

120 x=I,EN(a$)/2 

130 y=INT(LEN(a$)/2) 

149 IF x=y THEN 15¢ 

145 PRINT "There is an error":GOTO 164 

150 b$=LEFT$(a$,2) 

160 z=VAL("&"+b$) 

17@ POKE addr,z 

189 addr=addr+1 

199 a$=RTGHT$(a$, LEN(a$)-2) 

266 IF a$="" THEN GOTO 14% ELSE GOTO 15¢ 


If you remember, in the last issue, we printed a string on the screen 
using a program not unlike the one below. In this program we used labels 
to indicate (or stand for) various addresses and quite often these labels 
were preceded by a full stop (.) The program below prints out two strings 
- stringl and string2 ~ without becoming very much longer. The numbers on 
the right, for those who don't know, should be typed into the BASIC poker. 
They should not be typed into an assembler and likewise the words should 
not be tyned into the BASIC poker. 


ORG &400¢ 

etxt_output equ &BB5A 

ld hl.stringl 21 18 46 

call print CD @D 49 

ld hl,string2 21 1E 49 

call print CD @D 4¢ 

ret C9 

eprint JE 

ld a,(hl1) FE 9d 

cp @ C8 

ret z 

call txt_output CD 5A BB 

inc hl 23 

jp print C3 @D 40 

-stringl 

db "Hello",@ 48 65 6C 6C 6F @¢ 

-string2 

db "out there",@ 6F 75 74 20 74 68 
65 72 65 BO 


In this program we have used a subroutine without knowing it. In M/C 
you can use a subroutine exactly as you would in BASIC ie. you goto the 
subroutine, execute the code and then return to the main program. In the 
program above the subroutine is called .print. You go to it by using the 
command CALL print and return from it using the command RET. 
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You will notice that we have called the subroutine .print twice in 
the program and each time HL has been assigned a different value. There 
is one problem that will become very obvious to you when you call the 
program. That is you cannot print text on separate lines as you could in 
BASIC. Take this BASIC example below :- 


16 PRINT "Hello" 
26 PRINT "out there" 
30 END 


This is the BASIC equivalent of the previous program. However there 
is one major difference. In BASIC it is assumed that you want to print 
text on separate lines whereas in machine code you must tell the comp-— 
uter that you wish to print on separate lines. Likewise, in BASIC you 
must tell the computer to print on the same line — 1% PRINT "Hello";- 
whereas in machine code it is assumed. 

To print text on a new line in machine code you must issue two 
control character commands - and they are Carriage Return (CR) and Line 
Feed (LF). Carriage Return moves the screen cursor to the far left-hand 
side of the screen but on the same line. Line Feed then moves the cursor 
down a line and so typing can start on the following line. The codes to 
print a Carriage Return and a Line Feed are 13 and 16 respectively. So 
to print the text on separate lines simply change the last four lines to 
read :- 


-stringl 

db "Hello",13,10,@ 
~string2 

db "out there",13,14,@ 


Unfortunately, it is not quite so simple to do with the BASIC poker 
as various addresses will have changed as well as the simple text state- 
ments. For this reason the BASIC poker numbers are written out in full at 
the end of this section. This program comes under the heading of printing 
on new lines, 

Of course we are not limited to just printing on the next line, but 
we can print wherever we like on the screen and in any mode, The program 
below changes the screen mode to MODE @ and it can be easily changed so 
that MODE 1 or MODE 2 can be selected. 


.set_mode equ &BCGE 


ORG &4080 

LD A,@ 3E 06 
CALL set_mode CD @E BC 
RET C9 


To change modes, you load A with the value of the mode you wish to be 
in (either 0,1 or 2) and then call the firmware call &BC@E.The program on 
the next page sets the program to run in MODE 2, enables the text cursor, 
locates the text cursor at position 10,5 and prints the message "Hello". 
We have already seen the bulk of the program. The only bit which is new 
concerns the positioning and enabling of the text cursor and the CALLs 
to &BB7B, &BB6F and &BB72 take care of this. Once again the numbers for 
the BASIC poker are listed on the right-hand side. 
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ORG 84900 

-curs enable equ &BB/7B 
ecursor_hor equ &BBOF 
ecursor_ver equ &BB72 
etxt_output equ &BB5A 
.set_mode equ &BCGE 


ld a,2 3E G2 
CALL set_mode CD QE BC 
CALL curs_enable CD 7B BB 
ld a,1@ 3E QA 
CALL cursor_hor CD 6F BB 
1d a.5 3E 05 
CALL cursor_ver CD 72 BB 
1d hl,message 21 24 4¢ 
CALL print CD 19 44 
RET c9 
eprint 

1d a,(hl) 7E 

cp @ FE 06 
ret Z C8 

CALL txt_output CD 5A BB 
inc hl 23 

jp print C3 19 4G 
smessage 

db "Hello",@ 48 65 6C 6C 6F G¢ 


&BB7B enables the text cursor and thus allows you to move it around 
the screen. The calls &BB6F and &BB72 position the screen text cursor 
somewhere on the screen. To set the text cursor's position you must load 
A with the horizontal screen position (column) and call &BB6F. The screen 
co-ordinate is the same as is used by the BASIC LOCATE command. In MODE ¢ 
there are 20 characters across, in MODE 1 there are 40 and in MODE 2 there 
are 80. In all screen modes there are 25 rows. To set the vertical (row) 
co-ordinate you load A with the y value and call &BB72. 

Thus in MODE 2, to.locate the text cursor in the middle of the screen 
you would use the following :- 


1d a,4@ 3E 28 
CALL &BBO6F CD 6F BB 
1d a,1i2 3E 12 
CALL &BB72 CD 72 BB 
ret C9 


Below are printed the codes for Printing new lines :- 
21 18 46 CD @D 4G 21 23 49 CD @D 46 C9 7E FE @% C8 CD 5A BB 23 C3 @D 4G 


48 65 6C 6C 6F OD @A OO 65 75 74 26 74 68 65 72 65 GDP GA GO 


In the next issue we will deal with other text galls and perhaps a 
bit of simple graphics. With what you've learnt a little persistance, luck 
and experimentation you should be able to print graphics and text in many 
strange and pretty ways. 
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MAXAM ASSEMBLER COMPETITION 


If you have ever fancied programming in machine code, have read 
that you needed an assembler and have fainted at the price, then this 
competition is for you. We offer you the chance to win the very best 
machine code assembler, MAXAM. Not only does it assemble and disass-— 
emble machine code but also has its own built-in text editor, break- 
points and a host of other features which allow you to enjoy all the 
secrets of machine code the easy way. 

All you have to do is write a program, in any language, which 
has a total length of no more than 2000 lines (in steps of 10!) and 
send it to us on tape together with the completed entry form below. 
The winner will be chosen for its originality, friendliness and the 
skill with which it has been programmed. Thus a 200 line masterpiece 
is more likely to win than a 2000 line mess. The prize is MAXAM on 
tape so that most people have something to gain from winning this 
competition and the closing date for entries is DECEMBER 20. The 
winning program and the two runners-up will be printed in tuture 
issues of PRINT-OUT and to this end a listing would be appreciated 
but is not a necessity. 

If you wish your tape to be returned please enclose 35p for 
postage and packing. Any entries which are not on tape will be 
disqualified as will entries on disc. 

Entries that do not contain a completed order form will also 
be disqualified and people who send in more than one entry will be 
disaualified. 

Please write your name and address on every item that you 
send so that nothing gets lost or damaged. 


ENTRY FORM — Only ONE entry allowed per person 


NAME SiasG.eiatrae te ed saa eauwaaets taiwhweeee (BLOCK Capitals please) 
ADDIE Gays ts 50.2 siard siesta aoe avy aoc Sigg ead wie Meares ane ee uote 

Ieee Ce ee Cee eee er re ae eee eee 

Si eT ieee Cie eee ee eC eee ee ee eee ee eee 


eee eer error eee ese seeeerareerereerereneeeeeeeany 


POST CODE :_ eeoeeweeeoeereoeeereeoneeeneeeeneesenve se 


THE’: PYORTOM abo lwie's wees ated ess 05.08-00e5 TURNS? On aL) Amstrad OPC 
computers and is enclosed on tape. I give Print-out the right to 
publish the program should it win or be a runner-up and the pro- 
gram is entirely my own work, 


Please sign here if you agree to the terms above :- 


Please tick if you include a listing :- ( ) 


Please send all entries to :— Thomas Defoe, PRINT~OUT, Program Comp., 
Bishop's Stortford, Herts CM23 2PJ. 
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1O LINE PROGRAMS 


This issue contains two superb programs that were sent in by Tony 
Kingsmill from St. Albans. 

One of them produces a rather striking graphics display - called 
GRID GRAFIX - and the other is a version of that old favourite, SQUASH. 
Both of them are written in BASIC and of course fit into those magic 
ten lines. Congratulations Tony! Your prize is on its way to you. 


isrid brafix 


16 MODE @:BORDER @:INK @,@:RANDOMIZE TIME 
26 FOR a=1 TO 64¢ STEP 5:MOVE a,@ 

30 DRAW a.40G, INTCRND*16):NEXT a 

4 FOR a=46¢ TO 1 STEP -5:MOVE @.a 

5¢ DRAW 640,a, INT(RND*16):NEXT a 

6% FOR z=@ TO 15:INK x, INT(RND*27) 


76 NEXT x 
8¢ FOR y=1 TO 100 
9% NEXT v 
149 GOTO 6¢ 
Squash 
10 x=1@:a=10:b=5: i=l:k=1l:sc=0:MODE @:INK @,1:INK 1,24 


2¢ LOCATE x,22:PRINT CHR$(154):ox=x 

30 LOCATE a,b:PRTNT CHR$(111):oa=a:ob=b 

46 TF INKEY(8)=@ AND x>1 THEN x=x-1 

50 IF TNKEY(1)=@ AND x<2@ THEN x=x+1 

6@ asat+j:b=b+k:TF a<] THEN a=1:sc=sc+1:j=1 

7¢ IF a>2Q@ THEN a=2@:sc=sctl: i=-1 

8¢ IF b<l THEN b=1:k=1:sc=sc+l 

94 LOCATE ox.22:PRTNT " ":LOCATE oa,ob:PRINT " ": 
IF b>21 THEN 10@ ELSE 26 

10¢ IF a=x OR a=x-1 OR a=x+1 THEN sc=sc+2:y=22:k=-1: 
GOTO 2¢:ELSE PRINT "SCORE :-"3sc:FND 


The keys for SQUASH are the left and right 
cursor keys. Have fun ee 


If you have any programs that you have written then please send them in. 
REMEMBER if you enter our competition vou could win yourself a copy of 
MAXAM on tape. All you have to do is send us your program, together with 
the order form and of course the winner's program will be printed in 
Issue 3 of Print-Out. So don't delay, get your entry in today. 
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SOFTWARE INDUSTRIES COMMENTS PAGE 


This page will hopefully be a permanent 
fixture in every magazine in the future. The 


der iculer pace cr che CPC acensy, and dt the SUF TWUARE 
1 if j ill 
secu then Cogcien on “hic pces so pecple INDUSTRIES 


can see the differing opinions of people on 
a certain topic. If you wish to contribute 
please send your letters to :— PRINT-OUT, 
COMMENTS PAGE, 8 MAZE GREEN ROAD, BISHOP'S 
STORTFORD, HERTFORDSHIRE CM23 2PJ. 


In this issue we air some of your thoughts on the software industry. as well 
as some of our own. To start off with we have a letter from DARREN POWELL from 
THORNE near DONCASTER with his views on software pirates and backup copies. 


I thought I might contribute one of the first letters that you will no doubt 
receive. It's a bit of a moan, but I hope vou publish it on your letters page. 
The topic of my moan is the copying of software. I cannot see how software houses 
can justify their charges for producing a backup copy of a program you purchase 
from them. Also I cannot see how it can be deemed illegal to produce a single 
backup copy of any program that you have purchased with your hard earned cash. 

In my case I always use a working copy of any program I buy and the master 
copy is kept in a safe place in the event of a disc corruption or mishap of some 
kind. Sod's Law means that this will only occur with those discs or files most 
highly prized or ones which are not backed up. 

If the software houses were to be more helpful in the event of such mishaps 
perhaps the demand for 'cloners' would not be as great. As it was I think the 
situation did not need any alteration, the software houses were not losing vast 
amounts of cash through the production of backup copies and the users were happy 
to buy the little utility to produce backup copies for their own use. I thought 
that the producers of the Multiface add-on had the great sense to ensure that 
copied code required the presence of the Multiface to run it. Sceptics may say 
it merely boosts the sales of the Multiface as such users can swap programs. 

My final comment and sole opinion is - make that backup copy if you dare, 
for your own personal use (and only of your own programs), but on no account 
produce numerous ones to 'swap' with friends. This sort of activity is really 
going to kill the software and utility scene for the CPC for good, and when you 
think about it, what if it was your hard work and programming that people were 
pirating? 


We agree with all the points that you raise and have to admit to owning a 
Multiface Il device which has recently been banned by the ‘Copyright Designs and 
Patents Act 1988'. However, we would refute your claim that software companies 
did not lose vast amounts of money. I know many people who copy and swap games 
amongst themselves and between them, they probably lose the software companies 
abuont £300 a year and that's just three people. Of course it can be argued that 
the software houses are themselves directly responsible for the continued rise 
in the number of software pirates by charging such extortionate prices for soft- 
ware. Surely if all games cost no more than £4°99 then pirating software would 
not hecome nearly so profitable. Even by outlawing Multifaces and other similar 
copving devices it does not stop the pirates. At a guess I would say that more 
people own a tape~deck or hi-fi that is capable of tape-to-tape dubbing than own 
a software copving device. I know that copying software on a hi-fi is possible 
because it is how the program tapes are copied for this magazine and they work 
first time. However, it is undeniable that software pirates are killing the CPC 
software industry. Copying the programs you have bought for your own personal 
use should. we feel, be allowed but as soon as you supplv it to some one else, 
it should become illegal. Besides, even though the new Act makes copying ille- 
gal, no-one will be caught or charged — the only way for software piracy to be 
eliminated is for the software companies to change their own ideas and plans as 
we shall see on the following page. 
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The only way software piracy is going to be stopped is by ALL the soft- 
ware houses changing their minds on certain parts of their industry. Listed 
below are some of the things that we think need to be changed. 


Many of the excellent eames cost from £8:95 to £14*95 on tape and alth— 
ough a few do justify the price, most fall a long way short. There are also 
many software companies which have turned to the budget market, eg Codemasters, 
and they produce games which, in some cases, are better than full price games. 
Tf software piracy is to be stopped, all eames need to be reduced to below £5. 
This would still allow budget games to be produced at £2°99 and £1°99 and 
would mean that it would not be worth pirating these games. Of course, the 
same would apply to utilities, whose price would need to be lowered from £20 
to £30 down to about £1500. 


Many people feel that compilations, for one reason or another, are not 
worth the money. Often the compilation comes out two years after the original 
game was released and contain only one good game and the rest are space 
fillers. Sometimes the manual and instructions are poor. Others feel hard 
done by when they see four games that they spent £40 on appearing as a coll- 
ection for under £10. 


Another point which makes me, and many other users very angry, is the 
similarity of the games. The choice for CPC users is already very limited & 
when 50% are boring shoot-'em-ups and 49% are simulations that leaves only 
1% of good, original games. 


The final point is the cost of disc games. A tape game costs £14+99 
and on disc it costs £1999 ~ this means that the cost of the disc was £5. 
In fact, discs cost only £2°99 for us - the general public - so the soft- 
ware houses, who get them in bulk for under £2 make a giant profit of £3 
extra for each disc eame. Is it any wonder people backup tapes using the 


Multiface or other copiers ?!!!!! 


If YOU have any comments on this, or any other topic, please write to 
us at the usual address. We look forward to hearing from you. 


TO aE SSS SSS TESS SS Sp SS > EY ls Ss SE a i cr eT ESPNS 


ADVENTURING ARTICLE 


In the previous issue we dealt with how adventure games are today, how 
they are played and what makes them enjoyable. This time we are going to 
look at what tomorrow's adventure games will hold. 

Something that may soon become a must with all adventure games is mov- 
ing graphics. Not only will we see characters moving across the screen but 
also performing the tasks that you command them to do - such as picking ob- 
jects up. Take that one stage further and you will produce a role-playing 
game —- such as the Bard's Tale — which doesn't have the same attraction as 
basic adventure games. T think that in order to constitute a proper advent- 
ure game it is necessary to type in commands rather than to have certain 
keys controlling certain actions. As this would ultimately lead to games 
requiring speed reactions as opposed to logical deduction and so destroy 
the main source of enjoyment for adventure games. Still the basic adventure 
game is getting better as software houses pack more puzzles and locations 
into the game as well as interactive characters. Adventuring is here to stay!!! 


ADVENTARING 
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BITS & PreEGES 


In this section we will print routines and short programs, as well 
as tips, all of which we hope that you will find useful, or at the very 
least - interesting. The programs will be in any language and we'll try 
to cater for all tastes. So, if you have a good program (or if you need 


help with anything) write and tell us at the usual address. 


Listed below are two routines which we hope some people will be 
able to incorporate into their own programs. Although they both work as 
stand alone units, they will be more useful when adapted as part of a 
much larger program. The first routine illustrates the principle behind 
animation graphics using two screens. 


M/C 


txt_out equ &BBS5A 
set_mode equ &BCGE 
test_key equ &BBI1E 
set_screen equ &BCZ8 
get_screen equ &BCAB 
org &3060 ;program must start 


call set_up 


- loop 

ld a,47 

call test_key 
call nz,change 


1d a,66 ;test for ESCAPE button 
cali test_key ; 

jp z,loop :if not pushed then loop 
1d a,&C@ sotherwise, set screen to 
call set_screen snormal (&C@%@) and then 
ret sreturn to BASIC. 

change 

call get screen :get screen address 

co &C@ sif it is &C@OA then 

jp z,forty :goto subroutine 

ld a,&C¢ sotherwise set to &C@G@ 
«dummy 

call set_screen ;set the screen address 
ret sreturn from subroutine 
forty 

ld a,&4@ ;ld a with screen address 
jp dummy sand return, 

-set_up 

ld a,&C@ s;set screen address to &C@P¢ 
call set_screen ;and change it 

ld a,l sset the screen mode to 
call set_mode sone (MODE 1) 

ld b,24¢ :b=240 

ld a,"1" sa=ASCII code of number 1 
-loop2 

call txt_out sprint "1" 

djnz loop2 sand do it 240 times 

ld a,&4¢ :set screen address to &40¢¢ 


call set_screen 
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sbelow &400¢ (screen) 


stest 
stest for SPACE bar 


3 
;if pushed, swap screens 


sand change it 


(continued on next page) 
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(continued from previous page) 


ld a,l ;set the screen mode to 

call set_mode zone (MODE 1) 

ld b, 246 3b=240 

ld a,"2" sa=ASCII code of number 2 
-loop3 

call txt_out sprint "2" 

djnz loop3 sand do it 240 times 

1d a,&C@ :set screen address to &CG¢¢d 
call set_screen ;and change it 

ret s;return from subroutine 


What the program does is set up two screens whose addresses start 
at &4000 and &CO000. The first of these is filled with six lines of twos 
and the second with six lines of ones. When you press the SPACE bar, the 
Drogram switches rapidlv between the two screens, and so you see a blur 
of ones and twos. The idea is that whilst screen one is shown, screen 2 
is updated and then the screens are swapped over. This process is repeat— 
ed to produce flicker-free animation. The only real disadvantage with 
this method is that the two screens take up half the computer's memory. 
The program is written using iumpblock calls and so you should be able to 
look them up without too much trouble. Below is the BASIC poker version, 
so that even if you don't have an assembler you can still run the program. 


NB :- The screen memory is usually located at &C@@¢d. 


BASIC 


16 addr=&300G 

26 READ a$ 

30 IF a$="END" THEN GOTO 8¢ 
46 a=VAL("&"+a$) 

50 POKE addr,a 

60 addr=addr+1 


76 GOTO 2¢ 

84 CALL &360¢ 

96 END 

100 DATA CD, 2C, 36, 3E, 2F,CD,1E, BB 
11¢ DATA C4,19,30,3E,42,CD,1E, BB 
12Q DATA CA,@3, 30, 3E,CG,CD,48, BC 
13¢ DATA C9,CD,@B,BC,FE,C@,CA, 27 
149 DATA 34,3E,C0,CD,@8,BC,C9, 3E 
150 DATA 46,C3, 23,30, 3E,C0,CD,d8 
160 DATA BC,3E,@1,CD,GE,BC, 6, F¢ 


176 DATA 3E,31,CD,5A,BB,10,FB, 3E 
186 DATA 4%,CD,@8.BC.3E,61,CD,@E 
196 DATA BC,@6,F@, 3E,32,CD,5A,BB 
266 DATA 10,FB,3E,C#,CD,48,BC,C9 
216 DATA END 


We have found that an excellent way of converting machine code that 
has been assembled by an assembler, into DATA lines, is to enter the short 
line below. Tt prints out the data complete with commas and all you need 
to do is put DATA commands and line numbers at the beginning, You must put 
the correct start and end addresses in the line below:- 


FOR i=startaddr TO endaddr:PRINT HEX$(PEEK(i));:PRINT ",":NEXT i 
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The second routine is a four direction scrolling routine. It 
uses only jumpblock firmware calls and so is a lot less smooth than 
it could be. Listed below is the machine code program :— 


get_scr_addr equ &BCQB 

set_scr_addr . equ &BCO5 

get_key_wait equ &BBIE 

wait_flyback equ &BD19 

hard_scroll equ &BC4D 

ink_encode equ &BC2C 

org &4600 

-loop 

ld a,8 stest for left cursor 
call get_key wait ;key and if pressed 
call nz,left sthe CALL .left 

ld a,l stest for right cursor 
call get_key wait ;key and if pressed 
call nz,right sthen CALL .right 

ld a,@ stest for up cursor 
call get_key wait skey and if pressed 
call nz,up sthen CALL .up 

ld a,2 stest for down cursor 
call get_key wait skey and if pressed 
call nz,down sthen CALL .down 

ld a,66 stest for ESCAPE key 
call get_key_wait sand if not pressed 

jp z,loop sthen jump to loop 

ret sotherwise RETURN 

left 

call get_scr_addr ;get current screen address 
inc hl sand change it so 

inc hl sthe screen moves left 
call set_scr_addr sand tell the computer 
call wait_flyback wait for CRT 

ret sand return 

right 

call get_scr_addr ;get current screen address 
dec hl sand change it so 

dec hl s;the screen moves right 
call set_scr_addr sand tell the computer 
call wait_flyback :wait for CRT 

ret sand return 

.up 

1d a,@ sset the colour of the new 
call ink_encode sline and encode it. 

ld b,1l sset it to scroll up 
call hard_scroll sand tell computer 

ret ;return 

-down 

1d a,@ sset the colour of the new 
call ink_encode sline and encode it 

ld b,@ set it to scroll down 
call hard_scroll sand tell computer 

ret 3return 
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The main loop of the program tests for the various cursor keys 
and the ESCAPE key. When any of these are pressed the program then 
executes one of the subroutines to perform the task. 

The move left and right subroutines take the screen offset and 
modify it. When this is done the modified offset is sent out to the 
computer which changes it. 

The move up and down routines use the hardware scroll. To scroll 
up b must contain any non-zero number and the colour of the next line 
must also be specified. This is an encoded ink and so the firmware 
call &BC2C must be used to give us the mask. 

You may have noticed that the left and right routines have a CALL 
wait_flyback instruction in them whilst the up and down ones do not. 
The reason is that the left and right ones need to wait for the CRT 
otherwise a blur is produced and the other two do not because they are 
slow already. 

There are two problems with this program :- 

a) It is slow and not incredibly smooth - this is because it 
uses the firmware calls. 

b) Anything that passes off the top of the screen is lost and 
when scrolling horizontally the bottom line (or top line) 
reappears at the top (or bottom) of the screen when it is 
scrolled off. Both problems can be solved by incorporating 
it in a larger and more complex program. 

Below is shown the BASIC poker version - before you start asking, 
yes, line 11¢ is meant to be shorter than the others. 


19 addr=&4600 

26 READ a$ 

34 IF ag$="END" THEN GOTO 8@ 
49 a=VAL("&"+a$) 

5@ POKE addr,a 

6% addr=addr+1 


20 
86 CALL &46¢¢ 


100 DATA 3E,98,CD,1E,BB,C4, 29,40 
116 DATA 3E,61,CD,1E,BB,C4, 35 
126 DATA 46,3E,0¢0,CD,1E,BB,C4,41 
130 DATA 40,3E,02,CD,1E,BB,C4,4C 
14@ DATA 49,3E,42,CD,1E,BB,CA,@@ 
150 DATA 44,C9,CD,@B, BC, 23, 23,CD 
16@ DATA 65,RC,CD,19,BD,C9,CD,@B 
170 DATA BC,2B,2B,CD,@5,BC,CD,19 
18% DATA BD,C9,3E,6¢,CD, 2C, BC, 06 
19% DATA $1,CD,4D,BC,c9,3E,0¢,CD 
260 DATA 2C,BC,06,00,CD,4D, BC,C9 
21% END 


That concludes this issue's section on tips and routines and we hove 
that vou have found it interesting. REMEMBER if you have something you 
want to know, or have something you want other people to know, then please 
write to us at the normal address. 


34 


MULTI-COLOUR SPRITES BASIC TUTORIAL 


Multi—Colour_Sjrites 


Many professional programs use multi-coloured sprites and it is poss- 
ible to produce these from BASIC with a little care. The secret lies with 
the SYMBOL and CHR$ commands. 

First of all you need to produce and design the character or sprite 
and to do this it is advisable to use squared paper (or the Character 
Designer program in this issue). You need to design a symbol for each 
colour in the character so that when they are put together they mesh per- 
fectly. This is shown below :- 


Colour 1 Colour 2 


The character must be designed on an 8 x 8 grid, although for larger 
characters more than one symbol can be joined together. In the example 
above, SYMBOL 254 (Colour 1) can be recorded as follows - SYMBOL 254,@, 
$,255,255,90,0,255,255 - and SYMBOL 255 (Colour 2) as - SYMBOL 255,255, 
255,6,0,255,255,0,0. Before they can be redefined you must issue SYMBOL 
AFTER 32 command which allows all symbols to be redefined. Thus, our pro- 
gram reads so far :- 


16 SYMBOL AFTER 32 
26 SYMBOL 254,6,6,255,255,0,@, 255,255 
36 SYMBOL 255,255,255,0,0,255,255,0,@ 


However, if we print these characters one over the other, the lower 
character will be wiped out by the second, so we must issue the PRINT 
CHR$(22)+CHR$(1) command after any MODE instructions have been issued. 
So our program continues :-— 


46 MODE ¢ 
5@ PRINT CHR$(22)+CHR$(1) 


Now it just remains for us to print the characters and change the 
inks and pens accordingly. Thus our program continues :- 


6@ INK 1,24:INK 2,7 
70 LOCATE 1$,12:PEN 1:PRINT CHR$(254) 
84 LOCATE 14,12:PEN 2:PRINT CHR$(255) 


This does what we want but the last two lines are going to be very 
time consuming if we have to print 100 of these designs on the screen. 
Luckily there is a better way and it uses more CHR$ commands. We have 
already used CHR$(22)+CHR$(1) which sets up a transparent text option 
and CHR$(22)+CHR$(@) turns it back to normal. To change pens you use 
CHR$(15)+CHR$(n) where n is the value of the pen you want to use. And 
instead of using two locate commands we can use CHR$(8) which tells the 
text cursor to move back one space. So to print this character we would 
use ~ PRINT CHR$(15)+CHR$(1)+CHR$(254)+CHR$(8)+CHR$(15)+CHR$(2)+CHR$(255). 
If we assign a variable to this, eg CHAR$, then we can print the design 
very simply by using one locate and then PRINT CHAR$. So change lines 
7@ and 8G to :- 


76 char$=CHR$(15)+CHR$(1)+CHR$(254)+CHR$(8)+ 
CHR$(15)+CHR$(2)+CHR$(255) 
86 LOCATE 1%,12:PRINT char$ 
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MULTI-COLOUR SPRITES BASIC TUTORIAL 


The program below creates a large multi-coloured MODE @ space- 
ship which could be used as scenery for part of a game and is printed 
using the command PRINT rocket$;rocket2$3;rocket3$ 


1¢ SYMBOL 
26 SYMBOL 
36 SYMBOL 
46 SYMBOL 
5@ SYMBOL 
6¢ SYMBOL 
76 SYMBOL 
86 SYMBOL 
96 SYMBOL 
14% SYMBOL 
11¢ SYMBOL 
124 SYMBOL 
1306 SYMBOL 
140 SYMBOL 
15@ SYMBOL 
16 SYMBOL 
170 SYMBOL 
186 SYMBOL 
19% SYMBOL 
206% SYMBOL 


AFTER 32 
226,1,3,7,15, 31,63, 120, 244 
221,195,195, 231, 255,255, 255,102, 36 
222,128,192, 224,240,248, 252,30,15 
223, 66,66, 24,0,0,6,0,0 
224,0,0,0,@, 255, 255,255,255 
225,255,255, 255,255,0,0,0,¢ 
226, 28,60,124,168,12,12,126,126 
227,6,0,6,G, 243, 243,129,129 
228.227,195,131.147,6,6,0,¢ 
229,0,0,60,60,0,0,255,255 
ee G,4,126,126,0,¢ 
231 - :4,0,0,0 
vile hosel 
27,127,0,9,6,0 
255,252,248, 240 
192,9,0,9,0 
»224,224, 240,248 
237,252,252, 254,254,0,0,0,8 
238,0,0,0,%, 255,63, 31,15 


BHraoas 


210 


226 


230 


246 
250 
266 


In the above 
lines 219 ~ 234 pu 
noticed CHR$(8), C 
the graphics curso 
is a limit of 255 
CHR$ commands in o 
250 pulls these al 
infinite loop so t 


These control 
manual and are ver 


rocket $=CHR$(220)+CHR$(221)+CHR$(222)+CHR$(8)+CHR$(8)+ 
CHR$(15)+CHR$(3)+CHR$(223)+CHR$(8)+CHR$(11)+CHR$(224)+ 
CHR$(8)+CHR$(15)+CHR$(1)+CHR$(225)+CHR$(8)+CHR$(11)+CH 
R$(8)+CHR$(233)+CHR$( 228 )+CHR$( 237 )+CHR$(8)+CHR$(8)+CH 
R$(8)+CHR$(15)+CHR$(3)+CHR$( 234) 

rocket 2$=CHR$(11)+CHR$(9)+CHR$( 227 )+CHR$( 238 )+CHR$(8)+ 
CHR$(8)+CHR$(15)+CHR$(15)+CHR$( 226 )+CHR$(8)+CHR$(11)4+C 
HR$(8)+CHR$(15)+CHR$(3)4CHR$(232)+CHR$(224)4CHR$(236)+ 
CHR$(8)+CHR$(8)+CHR$(8)+CHR$(15)+CHR$(1)+CHRS$(231)+CHR 
$(925)+CHR$(235)+CHRS$(11) 

rocket 3$=CHR$(9)+CHR$(11)+CHR$( 225 )+CHR$(8)+CHR$(15)4C 
HR$(3)+CHR$(224)+CHR$(8)+CHR$(11)+CHR$(15)4+CHR$(1)+CHR 
$(2.25)4+CHR$(8)+CHR$(15)+CHR$(3)+CHR$(224)+CHR$(8)+CHR$ 
(11)+CHR$(15)4+CHR$(1)+CHR$(230)+CHR$(8)+CHR$(15)+CHR$( 
3)+CHR$( 229) 

MODE @:PRINT CHR$(22)4+CHR$(1) 

LOCATE 1,1@:PRTNT rocket$;rocket2$s;rocket3$ 

GOTO 266 


listing, lines 1¢ - 26% set up all the characters and 
t them all together. In these lines you may have 
HR$(9), CHR$(1@) and CHR$(11) and these commands move 
r around and their functions are shown below. As there 
characters to a BASIC line I could not put all of the 
ne variable but had to split them between three. Line 
1 together in the write order. Line 26% creates an 

hat the Readv message doesn't spoil the display. 


CHR$(8) - Back one character 
CHR$(9) - Forward one character 
CHR$(1¢) - Down one line 
CHR$(11) - Up one line 


character commands are all listed in your computer's 
y useful for writing quick and shortish programs. 
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MATH'S MASTER PLUS HOMEBREW 


Often homebrew software is well writ- 


ten, comprehensive and, what is more, it 
is useful. The serious market for the CPC om 


is notoriously poor and so homebrew soft- 


ware has flourished. There are many small 

‘companies' all offering something new & BREW 
different. This page will be set aside to 

review these products. 


In this issue, we turn our attent- 
ion to a small software company, MiP Software, that is run by Matthew Pinder 
and which has just released a new program for the CPC called Maths Master +. 


Math's Master Plus is a follow up to MiP's earlier program, Maths Master, 
and this new version boasts over 140 formulae and conversions. These functions 
are all accessed through several easy~—to-use menus which are very clear and 
helpful, All the functions are listed on a well produced A4 instruction book- 
let which tells you how to get to the required section in Math's Master Plus. 
This program is not designed to help you learn maths in any way but to simply 
provide you with one of the most sophisticated calculators. This is why the 
instruction booklet does not give you any more information about the functions 
as it presumes that if you want to use a function you will know about it. But 
the instruction booklet does include diagrams for use with SIN, COS and TAN, 
The program is clear, simple and helpful and although it does not have pretty 
screen layouts and multi-colour numbers it is no worse for it. After all, as 
you are waiting for the answer to ax+bx+c you don't want to have the letters 
and numbers tumbling about the screen until they form a pattern and all the 
colours flashing wildly - what you want is the answer and this is what Math's 
Master Plus gives you. When I say that the program does not have pretty scr- 
een lavouts this does not mean that it is an unorganised mess - it is not. Tt 
is what you might call a functional program - no frills just neat, tidy and 
accurate. One thing that seemed to be missing were simple equations such as 
45+b=35 - I now this is a very simple example but for more complicated form- 
ula and equations it might have been helnful. Having said that, there seemed 
to be virtually everything else. The only major problem with the program is 
the length of time that it takes to load on tape. If you just want to answer 
one simple question it is very inconvenient to have to wait over 10 minutes 
for it to load. Of course if you had many similar questions to answer then 
it is ideal - many a student will find it invaluable. On disc of course it 
is a different matter - if you have a disc drive dont't hesitate to buy it! 
Even on tape I would still recommend that you buy it as you never know when 
you may need. it. Ideally of course would be to transfer it ROM and have a 
fully fledged calculator instantly available. Overall it is an excellent 
buy and at only £3°95 (tape) or £6°95 (disc) it is a bargain and if you use 
the order form below vou will save yourself £1 off either version. 


Another, older program which MiP market is Sharewatcher - a simple 
stockmarket simulation on the CPC. This great fun for anyone with ambitions 
to make money (and lots of it!). It is good fun to play and will keep you 
amused for upto 3 an hour a game. We look forward to the more complicated 
version later this year. Price — £2*50 (tape) with tape-disc back-up routine. 


Please send to :- Matthew Pinder, MiP, 4 Wham Hey, New Longton, Preston, LANCS. 


ITEM TAPE DISC NAME = e@eeeereoeroeeeeeeeeeaeeeeneng 
Math's Master Plus £2°95 ( ) £5°95 ( ) ADDRES = eeoeeeeaneeereeeoereeeeneneerag 
Sharewatcher £2°50 ( ) oe eeeeoeeraneecaeeeeseeeeeoesy 


e@eeoeereeeeeneeeeereeneeang 


POST CODE :— ceccccncscsccce 
PLEASE MAKE CHEQUES/POSTAL ORDERS PAYABLE 
TO M. PINDER (All prices include P+P). 
PRINT-OUT ISSUE IL 


TTE SWAPPING 


Palette Swapping. 
ANIMATION 


One of the cleverest uses of BASIC colours is to create the illus— 
ion of animation by the use of palette swapping. Although it can only be 
used for simple movement it is still very effective and simple to set up. 


~ P 


BASIC TUTORIAL 


The theory behind palette swapping is that you draw the lines or 
shapes in the positions you want them to move to, but each line is in a 
different ink. Therefore, the number of lines you can have is limited by 
the number of different inks available to you in a certain mode. One way 
around this is to repeat the inks after a certain number of lines. This 
means that instead of having just one line or shape on the screen at any 
one time, you can have as many as you like. The program below sets up 
the screen and then animates a series of lines that go across the screen. 


1 REM Palette swapper (c) 1989 T.Defoe 
10 MODE @ 
26 CALL &BCG2 
36 k=1 
46 FOR i=@ TO 640 STEP 4 
56 FOR j=l TO 4 
60 MOVE (i-1)+j,1 
76 DRAW (i-1)+j,400,k 
86 NEXT j 
9¢ k=k+1:IF k=14 THEN k=1 
10@ NEXT i 
11¢ FOR i=1 TO 14 
120 INK i.@ 
13@ NEXT i 
146 FOR i=l TO 14 
15@ INK i,26:CALL &BD19 
160 INK i,@:NEXT i 
176 GOTO 14¢ 


Lines 16 - 30 set up the screen mode, reset the colours and does all 
the initialisation. The firmware call, &BC@2, resets the colours amongst 
other things and so the program will run correctly if you run it a second 
time. Lines 44 ~ 10% draw the multi~colour bands on the screen and the 
ink to be used is stored in 'k' and is modified in line 94. Lines 116 - 
130 set all the inks to @ (Black). Lines 144 ~ 17% actually do the animat- 


ion. What happens is that each ink 
for a 'Frame Flyback’ (CALL &BD19) 
When all 14 inks have been flashed 
be replaced by the 'FRAME' command 


the program without it and spot the difference . 


is turned to white, the computer waits 
and then turns the ink back to black. 
the cycle is repeated. CALL &BD19 can 


and all it does is reduce flicker. Try 
! 


The next program shows that not just lines, but shapes can be used 


in this way. 


16 REM Shape Shifter 


20 MODE ¢ 

30 CALL &BC@2 
4 BORDER 7: INK 
5@ k=1 


6,0 


6% FOR i=l TO 180 STEP 18 
76 MOVE 164+i,16+i 


(continued on next page) 
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ADVANCED BASIC — PALETTE SWAPPING BASIC TUTORIAL 


(continued from previous page) 


86 DRAW 63¢-i,10+i,k 

96 DRAW 636-i, 390-i 

106 DRAW 104+1,399-i 

11% DRAW 16+i,10+i 

126 k=k+1 

130 NEXT i 

140 FOR i=1 TO 16 

15% INK i,@ 

166 NEXT i 

176 FOR i=1 TO 16 

186 INK i,26:CALL &BD19 

199 INK i,@:FOR t=1 TO 5@:NEXT t:NEXT i 
266 FOR i=1% TO 1 STEP -1 

210 INK i,@:CALL &BD19 

226 INK i,26:FOR t=1 TO 5@:NEXT t:NEXT i 
236 GOTO 17¢ 


Of course we can do a similar thing with text and this next program 
moves an arrow, CHR$(243), along the top of the screen, This is interrupt 
driven so that the program can get on with the rest of it without having 
to worry about moving an arrow. The rest of the program is simulated by 
line 264 which can be replaced with your own program. 


1@ REM Arrow Mover 

26 MODE @:CALL &BCG2 
36 WINDOW #1,1,20,1,2 
46 CLS #1 

50 WINDOW #9,1,20,3,25 
6% INK 6,0:CLS #1 

70 k=1:BORDER 7 

846 LOCATE #1,3,1 

9% FOR i=1 TO 14 

190 PEN #1,k 

11% PRINT 1,CHR$(243); 
120 k=k+1 

136 NEXT i 

149 FOR i=1 TO 14 

15¢ INK i,@ 

160 NEXT i 

170 INK 15,26:PEN 15 
186 i=1 

199 EVERY 1 GOSUB 14@¢ 
260 GOTO 26¢ 
210 END 


1000 INK i,26:CALL &BD19:TNK i,@ 
1016 i=i+1:IF i=15 THEN i=1 
162% RETURN 


The interrupt EVERY is used in line 19% to control the movement of 
the arrow and the subroutine from 100% - 1626 actually moves it. To slow 


the arrow down change line 199 to read - EVERY n GOSIIB 16¢@ where 'n! 
is the time delav in 1/50 of a second. 
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OFFERS 


OFFERS 


Please make all cheques/postal 
orders payable to T.J. Defoe. 
All orders will be dealt with 
on a first-come first-served 
basis, although programs and 
back issues can be guaranteed. 
Please do NOT send cash unless it cannot be avoided. Please send any 
orders to :- PRINT-OUT, Special Offers, 8 Maze Green Road, Bishop's 
Stortford, Hertfordshire CM23 2PJ. 


Cassettes 


If you wish to receive a tape containing all the programs in this 
issue and a booklet that explains how they and many others work, 
please send either  :- a) A blank tape (12 min) + 50p (p+p) 

or b) £100 (which includes tape and p+tp) 
The program cassette for Issue 1 is still available at the above 
prices. PIEASE not that Character Designer appears on both tapes. 
Please mark your order clearly, Issue 1 or Issue 2. 


Back Issues 


Have you just bought Issue 2 of Print-Out and want to find out what 
Issue 1 was like ? Well, you can obtain a copy of Issue 1 by sending 
7Op and a large A4 Size S.A.E. (26p stamp) to the usual address. 


Special Offer 


In this issue you have the chance to buy two pieces of excellent 
homebrew software written by Michael Pinder. They are Math's Master 
Plus - £2°95 (tape)/f5°95 (disc) - at a £1 discount and Sharewatcher 
- £2°50 (tape). You will already have seen the reviews on page 
and we are sure you will agree that they are both superb pieces of 
software. Please use the order form on page 37 to order and SAVE £1. 
All cheques/postal orders for this offer should be made payable to 
M. Pinder and sent to :~ Matthew Pinder, MiP, 4 Wham Hey, New Long- 
ton, Preston, LANCS. 


Also, don't miss your chance to win MAXAM, the machine code assembler 
for the Amstrad CPC, on page 27 
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SMALL ADS & USER CLUBS INFORMATION 


Small A\ds. 


FOR SALE: Games (arcade, strategy & adventure) and Serious Software. 
Tapes and Discs. All originals. Low Prices. For list send 
SAE to 29 St Leonards Road, East Sheen, London SW14 7LY or 
phone 01-876-5245. 


User Clulbs 


UNITED AMSTRAD USER GROUP: Write to United Amstrad User Group, The 
Chairman, 26 Uplands Crescent, Fareham, Hants, PO16 7JY 
for information on how to join. The cost for a year's 
membership is £7.00 (UK), £10.00 (Europe) and £14.00 (over- 


seas). 


Remember you can place an advertisment of upto 40 words (including 


name and address) in this section of the magazine, free of charge. 


lissue_3 


If you would like to contribute to Print-Out in any way, then 
please get in touch at our address which is :- PRINT-OUT, 8 Maze 
Green Road, Bishop's Stortford, Hertfordshire CM23 2PJ. If you've 
written a program, discovered something new, done something inter- 
esting or have a problem with the Amstrad CPC then we would love 
to hear from you. Any articles, programs, etc. that you would like 
considered for publication in Issue Three, should arrive no later 
than the 20th December. (Please mark them Clearly 'PRINT-OUT! - 
otherwise they may get stuck under the Christmas Tree tit) 


Thank you. 


Thomas Defoe, Mark Gearing and Jonathan Haddock. 


PRINI—OUT ?, 6 maze Green Road, Bishop's Stortford, 
Hertfordshire CM23 2PJ 


Unfortunately, there were quite a few errors in programs for Issue Two and the 
corrections are shown below. We are very sorry for any inconveniance that these 
errors may have caused and have improved our program checking method from Issue 
Three onwards. 


CHARACTER DESIGNER :- (pages 19-21) 


9@ WINDOW #1,2,9,2,9 
860 IF TEST (SO+(2kx) , 100-(2ky))<>1 THEN 840 
940 WHILE INKEY(47)<>-1:WEND 


NAME, AND ADDRESS STORER  :- (pages 8-12) 


230 where=INSTR (knows, a$) 

30@Q@ MOVE @,@:DRAW 0,399: DRAW 639, 399:DRAW 639,0:DRAW 0,0 

31@ WINDOW #0,2,79,4,2@:WINDOW #1,2,79,21,24:PEN #1,@:PAPER #1,1 
340 DIM name$(1000):DIM phone (19000) :DIM addresst (1000, 4) 


830 NEXT j 

870 LOCATE 20,14: INPUT "Enter correct name :- ",name$(i) 
1080 NEXT j 

1170 LOCATE 20,5:PRINT "Number :- "jphone(i) 


151@ FOR i=1 TO number 

1620 IF UPPERS (address$(i, }) )=UPPERS (find$) THEN RETURN 

1630 NEXT i 

1780 INPUT address$ (number, i) 

1980 j=1 

2010 bS=MIDS (names (two), j, 1) 

2100 hold$=names$ (one) : names (one) =name$ (two) : names (two) =hol ds 


MACHINE: CODE) PROGRAMMING :- (page 26) 


The codes for printing new lines should read as follows :- 
21 18 40 CD @D 40 21 20 40 CD OD 4@ C9 7E FE 00 C8 CD SA BB 23 C3 OD 40 
48 65 &C 6C GF @D OA @@ EF 75 74 20 74 68 65 72 65 OD OA Od 


